home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / cross / sasmv14.dms / sasmv14.adf / examples / set.s < prev    next >
Text File  |  1993-05-22  |  1KB  |  52 lines
  1.  
  2. **********************************************
  3. **
  4. ** Some SET re-definable demonstrations...
  5. **
  6. ** © 1993 by Infernal Byte Systems, INC.
  7. **
  8. **********************************************
  9.  
  10.     heap    O=2
  11.  
  12. zero    EQU    0+0+0+0+0*0
  13.  
  14. number    set    zero
  15.     exp=    number
  16. number    set    number+1
  17.     exp=    number
  18. number    set    number*2
  19.     exp=    number
  20. number    set    number*2
  21.     exp=    number
  22. number    set    number*2
  23.     exp=    number
  24. number    set    number*2
  25.     exp=    number
  26. number    set    number*2
  27.     exp=    number
  28. number    set    number*2
  29.     exp=    number
  30. number    set    number*2
  31.     exp=    number
  32. number    set    number*2
  33.     exp=    number
  34. number    set    number*2
  35.     exp=    number
  36. number    =    26            ;creates error
  37.  
  38. ;The above code will create the following output:
  39. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  40.  
  41. ;[exp] at #7 PC=$008000 evaluates to 0 (=$000000)
  42. ;[exp] at #9 PC=$008000 evaluates to 1 (=$000001)
  43. ;[exp] at #11 PC=$008000 evaluates to 2 (=$000002)
  44. ;[exp] at #13 PC=$008000 evaluates to 4 (=$000004)
  45. ;[exp] at #15 PC=$008000 evaluates to 8 (=$000008)
  46. ;[exp] at #17 PC=$008000 evaluates to 16 (=$000010)
  47. ;[exp] at #19 PC=$008000 evaluates to 32 (=$000020)
  48. ;[exp] at #21 PC=$008000 evaluates to 64 (=$000040)
  49. ;[exp] at #23 PC=$008000 evaluates to 128 (=$000080)
  50. ;[exp] at #25 PC=$008000 evaluates to 256 (=$000100)
  51. ;[exp] at #27 PC=$008000 evaluates to 512 (=$000200)
  52.